Magnum One

home *** CD-ROM | disk | FTP | other *** search

/ Magnum One / Magnum One (Mid-American Digital) (Disc Manufacturing).iso / d18 / pascal29.arc / PASCAL.E24 < prev

Wrap

Text File | 1989-05-23 | 86.6 KB | 2,631 lines

= From: Beth Larson To: Lee Bollard Msg #137, 17-May-89 09:06am Subject: pascal Hello! if you find anyone who can help you will you please pass the information on to me i am interested in also learning the language then going into c langquage --- * Origin: Dynasoft,PO.Box 915,Davis,Ca 95617,916-7538788 HST (Opus 1:203/955) *** Part of a conversation. From: Chris Beliveau To: Betsey Doane Msg #138, 18-May-89 02:36pm Subject: Re: Pascal Ok..Thanks.. --- QuickBBS v2.03 * Origin: The BlackMarket - Methuen, MA (508)682-0133 (1:324/115) *** Part of a conversation. From: Larry Sanders To: Mark Farnan Msg #139, 17-May-89 12:18pm Subject: Re: No Readln GS-> Anyone noticed that when you define a window, GS-> sometimes gotoxy doesn't GS-> >work quite correctly? I haven't pinpointed the problem, MF-> As a matter of fact, I have been having this Problem, Was MF-> using windows for the Log output in my BBS program, but MF-> GotoXY kept going to the wrong place and making a mess of MF-> things. Never did findd out Why. I believe I saw someone tell Mr. Sherman that the problem (not really a problem) is that when you define a window, the window itself is considered the whole screen, which puts the (1,1) in GOTOXY at the top, left position INSIDE the window rather the the 'home' position of the actual screen. --- QuickBBS v2.03 * Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403) *** This is a reply to #33. From: Larry Sanders To: Steve Brennan Msg #140, 17-May-89 12:32pm Subject: Re: Which Turbo Pascal book? --- QuickBBS v2.03 * Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403) *** Part of a conversation. From: Larry Sanders To: Steve Brennan Msg #141, 17-May-89 12:38pm Subject: Re: Which Turbo Pascal book? (consider that blank message an 'oops'...) -> IF you go to any college or university, you could probably -> find a good book to learn from. I used 'Oh! Pascal!' by -> Doug Cooper and Michael Clancy. It's a pretty good -> beginning level book. From there you can go out and pick -> up another book that goes into more depth. Just so you -> know, this book teaches standard pascal, but there is a -> suplement called 'Oh! Turbo Pascal' which is an addition to -> the book. It's not too bad for beginning with the -> language. Good Luck! If you are talking about self-teaching, I've discovered that disecting the source code (when available) of the UNITS from the various Toolboxes I use is an execellent 'source' of knowledge. Look at a command, see WHAT it does, then find the procedure in the TBox source and see HOW it does it. I've learned several things by that method. --- QuickBBS v2.03 * Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403) *** Part of a conversation. From: Tom Moeller To: Larry Sanders Msg #142, 17-May-89 05:01pm Subject: Pointers > > > -> In this case the '^' says to use the value stored at > this > -> location. Present is set up as a pointer to some record, > -> Present^.Name says to use the value pointed to by > -> Present.Name. > > > Let me see if I have this straight..... > > The '^' indicates a pointer, and the position of it indicates > direct or > indirect addressing (to use assembly terms). > > Is that correct? The way I understand the example, Present is a pointer to a record type (a do-it-yourself group of variables under one name). Present^ actually refers to the variable of that record type, and Present^.Name refers to one field in the record. Whew. --- TPBoard 5.2 (USA) * Origin: The Final Frontier - Upstate NY - [HST] (518)761-0869 (1:267/54) *** This is a reply to #85. From: Tom Moeller To: Jim Forbes Msg #143, 17-May-89 05:05pm Subject: Zenith Z-100 & Delay() > Thanks, that will help with my replacement for the CRT > unit for use > with the IBM's. However, I am still looking for a replacement > for the > CRT.Delay procedure for use with a Zenith Z-100. > > NOTE: The Z-100 is NOT IBM compatible, but it does use > MS-DOS. > If you're reaaaaally really really interested, your Z-100 DOS manuals (volume I and II, they gave me) have a source listing for much of ZDOS.. and one of the DOS diskettes I got had a complete assemblable source for dos.. modify/reassemble it to your heart's content, I guess. Something in all that might help out.. But it'd be a lot of digging.. tom --- TPBoard 5.2 (USA) * Origin: The Final Frontier - Upstate NY - [HST] (518)761-0869 (1:267/54) *** This is a reply to #44. From: Joe Fischer To: Mike Simpson Msg #144, 17-May-89 05:45pm Subject: Re: Turbo ver 5.0 Hi Mike: Do you mean ClrScr doesn't work in TP any more? I use 3.0. Of course sometimes, I like to use For loop:= 1 to 25 do Writeln; But that's kinda slow. And then there's lotsa other ways. If you want any info that I can help with, voice 512 832-9310. Do you play chess on the Chess Board? Joe Fischer --- QuickBBS v2.03 * Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15) *** This is a reply to #81. From: Joe Fischer To: Larry Sanders Msg #145, 17-May-89 05:48pm Subject: Re: Appending a text file from beginning Hi: There is one thing you don't want to ever do, MESS WITH THE FAT! That's what device service routines are for. Let the Disk Operating System (DOS) do it for you. Joe --- QuickBBS v2.03 * Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15) *** This is a reply to #79. From: Wayne Boyd To: Jens Stobernack Msg #146, 16-May-89 11:17am Subject: Fossil driver revisited Jens, in the function you gave me before: > function carrier(comport:integer):boolean; > var > regs:registers; > begin > regs.dx := comport: {note is comport is Othen the fossil driver by pass > this function} ^ > intr($14,regs); | > if regs.ax >= 136 then | > carrier := true {carrier detected} | > else | > carrier := false | > end; | | 1) What do you mean by this comment? ---------+ 2) Also, is com1 0 and com2 1??? If I pass a "1" to this function, which comport is being monitored? 3) I wrote a little routine to test this function: uses crt,com_port; {your routines are in com_port.tpu} var ch : char; begin gotoxy(9,10); textcolor(15); write('Press ESC to abort'); repeat textcolor(black); backgroundcolor(white); gotoxy(10,10); if carrier(1) then write(' Carrier is present on comport. ') else write(' Carrier is dropped on comport. '); if keypressed then ch := readkey until ch := #27 end. Unfortunately, this always returns a true, and "Carrier is present on comport" message is always on screen until ESC is pressed. It doesn't seem to matter what integer I pass to the function CARRIER. (BTW, I'm using com2). Any help? Also I was asking if your routine that waits for a carrier from the comport could easily incorporate a simple for of sysop intervention. i.e. sysop presses a key from keyboard and it get's acted upon. Any word on that one? Your messages have been immensely helpful so far. -Wayne Boyd --- QuickBBS v2.03 * Origin: Dial-a-Guru BBS (Seattle, Washington) (206)328-7827 (1:343/44) From: Ross Wentworth To: Wan W Msg #147, 16-May-89 02:00am Subject: Re: Editor for Turbo Pascal > I am quite interested, will you provided the source code > also. > Could you sent it to : Because I used source code provided in Borland's Editor Toolbox as a starting point I am unable to release the majority of the source code. The portion of the code that packs the program into expanded or extended memory is currently proprietary but I'm considering releasing it (given the low number of registrations for source code I've released in the past I will NOT release it as shareware). I also use a very small portion of modified code from TurboPower's Turbo Professiona 5.0 package. Ross Wentworth --- FD TosScan .40 (286) * Origin: St Dymphna's Retreat via Torrance BBS 213-370-9027 (1:102/345.1) *** This is a reply to #77. From: Ross Wentworth To: Matt Farrenkopf Msg #148, 16-May-89 02:04am Subject: Zmodem (HELP!!) > My point is, I'm in deep! Can anyone help me with sample > source that either was written specifically for the IBM's > standard INT 14H interrupt or for a FOSSIL driver (any > Fidonet mailer programmers out there? <hint,hint>)? > PLEEEEEEEEEZ? Send a message to Joaquim Homrighausen (he's in the nodelist) and ask him about his Transfer Protocal Engine. It will link right into a Turbo Pascal program. I'm not sure if he includes the source code, however. The TPE goes for about $50 last I heard. Ross Wentworth --- FD TosScan .40 (286) * Origin: St Dymphna's Retreat via Torrance BBS 213-370-9027 (1:102/345.1) *** This is a reply to #57. From: Ross Wentworth To: Michelle Wyner Msg #149, 16-May-89 06:27pm Subject: toolbox > Does anyone use any of those TP Toolboxes (ie. Games, > Graphics, Database, etc..) that you can buy extra? Are > they worth getting? I have all of the tool boxes from Borland. I've only used the Editor and the Database toolboxes. The Editor Toolbox is great. The Database toolbox is blown away by TurboPower's Database toolbox (which supports networks). As for the others: Graphics Toolbox - I want my money back. Total garbage. This toolbox completely ignores the BGI extensions and is in a world all by itself. Don't bother with it. Numerical Methods - A mathmatician friend of mine said that (after examining it) it was a very limited package. I can't verify this as I haven't used it. Gameworks - If you want source code to some games non-graphic games, great. If you were hoping to write the next Space Quest, forget it. Ross Wentworth --- FD TosScan .41 (286) * Origin: St Dymphna's Retreat via Torrance BBS 213-370-9027 (1:102/345.1) *** Part of a conversation. From: Paul Lahaie To: David Dahl Msg #150, 15-May-89 06:22pm Subject: Re: Sound and TP5.0 -> The disk is available from Compute! Mag. The program to -> give the IBM 3 voices is called VMUSIC. No, I don't think it switches -> quickly between notes. There is a document that comes with it (Text -> file) that explains how it works. Something about a push-pull location -> for the speaker or something like that in memory. The program could -> be accessed through TPascal with an EXEC to add 3 voice music to -> your program, but I believe the author of VMUSIC doesn't want it -> incoroprated into any other work. I have a similar program called 3VOICE. It gives 3 sounds simultaneously on the PC. Unfortunately the program is written in BASIC with calls to a 3VOICE.BIN program. I have also read in a very old issue of Pc Magazine that the IBM can produce 3 sounds at the same time by calling the speaker, the paarallel port (if some odd way), and another place (I would have to read it again to find out what) . Since all these ports are timed by the timer chip it is able to send the necessary frequencies to the internal speaker! I don't know if you can incorporate 3VOICE.BIN in pascal code (I never tried it). The program is also un-compilable under TurboBASIC v 1.0. Some odd statement in the code ! -Paul --- * Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207) From: Paul Lahaie To: Nathan Drost Msg #151, 16-May-89 07:07pm Subject: Re: COMMUNICATION WITH PASCAL > I was writing a door in tp, and everything was working > fine except the remote user could not enter anything at > the prompts. Do i need to use ReadPort(Comport,Ch);? > (With Yasync). Also, i was writing it with no comm. routines, > just using CTTY. > > -Nate > --- QuickBBS v2.03 I have a program here called LhDoor (For QuickBBS) and it uses CTTY COM1 or (preferably) CTTY GATE1. It uses normal ReadLn. Don't include CRT cause it may cause problems with screen I/O. hope this helps. -Paul --- * Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207) *** There is a reply. See #191. From: Andy Lester To: Jesper Wolf Msg #152, 16-May-89 05:26pm Subject: TP SET bug > Where this base type is a subrange of some larger type it folows that > the operation X IN A is defined ONLY for values of X within this > subrange. > Thus if A is of type SET OF 1..50 and X is an integer variable with > value 65 the result of the test X IN A is undefined and may not give > the value false as one might intuitively expect." program test; var foo : integer; bar : set of 1..50; begin foo:=65; bar:=[1..50]; if foo in bar then writeln('passes') else writeln('fails'); end. I ran this in Turbo Pascal, and it ran and gave the output of "fails". The same results come out if the literal values of foo and bar are substituted for the variables. Turbo does bunches of range checking of constants at compile time. I'd think they'd do a bit of checking on set boundaries. Also, Apple Pascal, if I remember correctly, will produce a run-time error if this code is executed. Andy --- FD 2.00 * Origin: CONST PointName='Paradise City'; death=true; taxes=true; (1:115/790.2) From: Andy Lester To: Dj Murdoch Msg #153, 16-May-89 05:34pm Subject: Re: Smashing Integers to Bits > By the way, do you know of a unit (with source) that'll take a stream > of bytes, and produce a compressed stream? Most of the packages I've > seen are for file compression, and have the file handling so deeply > embedded that I haven't had time to extract it. Doesn't Rahul Dhesi release source to ZOO? I know that one of the functions of ZOO 2.01 that I have is to act simply as a filter, for instance: dir | zoo -x > com1 which would compress the dir listing and then send it out to the modem, if I've got my DOS command piping and redirecting correct. -x isn't necessarily the right switch, but that's the idea. So just get a copy of the (undoubtedly) C code and modify it... Andy --- FD 2.00 * Origin: CONST PointName='Paradise City'; death=true; taxes=true; (1:115/790.2) From: Andy Lester To: Steve Butler Msg #154, 16-May-89 05:35pm Subject: Re: CTL processing... > > Of course, that means that your .ctl file must start > > in the leftmost column, and the previous line must end > > with a CRLF. > > What previous line? <<grin>> Oh, silly me. You have a one-line config file! :-) Andy --- FD 2.00 * Origin: CONST PointName='Paradise City'; death=true; taxes=true; (1:115/790.2) From: Brian Corll To: David Cressey Msg #155, 17-May-89 06:06pm Subject: Huffman (cont'd) No boredom on my part, David ! Write on...... --- ConfMail V3.31 * Origin: Ten B.C. Micro Systems (1:150/501.21) *** This is a reply to #73. From: Matthew Taylor To: Roy Green Msg #156, 17-May-89 11:11am Subject: Re: *.CHR files Roy, thank you *very* much for that info. I was nearly at the end of my rope with this problem. YOUR INFO MADE MY WEEK! Thanks again! Regards, Matt. --- QuickBBS v2.03 * Origin: OKY BBS /\ Boulder, CO /\ (303)494-0533 /\ (1:104/113) *** This is a reply to #43. From: Jens Stobernack To: All Msg #157, 16-May-89 10:35pm Subject: Error Message Can anyone tell me what to do to fix a: Error 48: Code segment to large. Error??? thanks --- ConfMail V3.31 * Origin: EZ Duzzit BBS Calgary (1:134/20) *** There is a reply. See #230. From: Charles Falconer To: Matthew Franckiewicz Msg #158, 18-May-89 07:31am Subject: Determining redirection In a message of <15 May 89 22:51:00>, Matthew Franckiewicz (1:129/84) writes: >I seem to recall a discussion in the echo not too long ago about how a >program can determine whether standard input or standard output has been >redirected. If anyone can remember how to do so, I'd appreciate it. I Fundamentally, use the ioctl DOS call. Routines to do this are also in TXTFILES.ARC, on 141/209. --- msged 1.99S ZTC * Origin: Chuck makes a point - Hamden CT. (1:141/209.1) *** This is a reply to #97. From: Charles Falconer To: Andy Lester Msg #159, 18-May-89 07:37am Subject: Re: Query In a message of <15 May 89 19:31:00>, Andy Lester (1:115/790.2) writes: >You think TP is a bear, try Apple Pascal some time. We're talking 64K >data space, but the stack grows on top of the code space, which is mostly >eaten up by (guess what) the huge amount of code it generates. That was the early version of SCUD. Its basic purpose was to flush unused code, but this meant many reloads of subroutines. You have to keep its structure in mind when organizing the program (double blech). Later versions did somewhat better by making a configurable code space between heap and stack, and moving it when needed. Faulty in that it required both the calling and called segments to remain in memory. Somewhere areund I have the sources to the early SCUD, on 8 inch floppies. Can't read them without a drive for now tho. --- msged 1.99S ZTC * Origin: Chuck makes a point - Hamden CT. (1:141/209.1) *** This is a reply to #102. From: Charles Falconer To: David Cressey Msg #160, 18-May-89 07:44am Subject: Re: PASCAL????????? In a message of <17 May 89 14:31:23>, David Cressey (1:321/150) writes: > >> dialect, e.g Get and Put in standard Pascal are Read and >> Write in Turbo. >Beg pardon, but Read and Write are really standard Pascal, as well as Get >and Put. What is non-standard about TP is the lack of Get and Put, and >the fact that 'File variables' aren't quite like the standard. >Who cares? Not me, for sure (about this issue). >If you use Read, Write, Readln, and Writeln when writing for either TP or >standard Pascal, you should be able to move to the other really >easily. Not so easy. Get and f^ especially allow you to 'look ahead', especially on the console input. If you are reading an integer, for example, you don't know its finished until you get a terminating non-numeric character. But the reading routine doesn't want to use that char, it must be left for the future. Without get and f^ you can't do this. This is why TP barfs on read(integer) when supplied with something like '80x'. This results in people writing their own string buffers and parsers, and other non-reusable code (because it is tied to a global buffer). That is why I wrote TXTFILES.arc. It at least gives standard semantics, if not names. --- msged 1.99S ZTC * Origin: Chuck makes a point - Hamden CT. (1:141/209.1) *** Part of a conversation. From: Charles Falconer To: Loyd Craft Msg #161, 18-May-89 10:10am Subject: Files & freqs > Thanks for files availability ... HST usage etc. (from private msg) Don't thank me - thank my boss node. --- msged 1.99S ZTC * Origin: Chuck makes a point - Hamden CT. (1:141/209.1) From: Charles Cremer To: Douglas Johnson Msg #162, 18-May-89 05:35pm Subject: Modem Backgammon To All: Doug asked me for some advice about modem backgammon in a message of 14-May that I am sure many of you saw. Edited for brevity: DJ> (1) Just how easy would it be to program in Turbo 5? DJ> (2) I can't decide whether to use graphics or just ansi characters. DJ> (3) One thing about the random number generator I've been concerned DJ> with involves using the computer clock as a seed. It seems to me DJ> that the generator would use the same seed for both die, and that DJ> would make it more likely of doubles showing up. Doug, first off, let me say that I am no expert on graphics, so there are surely others on the echo more qualified than I to advise you about that, and hopefully if anyone has something to offer, they will join right in. I feel that TP5 would be a good choice for your proposed program. As you noted, drawing the board and pieces will be the most difficult part. I don't think you can use ordinary graphics unless you expect your users to call in using a graphic terminal emulator program. The usual BBS user's terminal program is limited to ANSI graphics. If you randomize before each "roll" you get non-random pair results, but if you randomize only once at program start-up, you get a good random distribution. I make this statement based on a die-toss test program trial run observation. There are some Pascal craps games floating around. (Heh-heh, floating craps games). You might try to find one of these and look it over. """ Charlie ^ ^ J \_/ --- * Origin: The Antenna Farm - Austin, TX (512-444-1052) (Opus 1:382/40) From: Robert Kirby To: Nolan Walker Msg #163, 16-May-89 09:36pm Subject: Re: thanks... >>>>> write a program to print "HELLO". Easy is the most important factor between basic and pascal. If you decide that pascal is easier, maybe you could tell me a few reasons, and also tell me what brand of pascal I should purchase. >>>>> program print_hello(output); begin writeln('HELLO') end. I think if programming with PCs, you should try TP 4.0 or 5.0. --- * Origin: -=[ SoundingBoard of Houston (713)821-4148 HST ]=- (Opus 1:106/12) *** This is a reply to #86. From: Robert Kirby To: Larry Sanders Msg #164, 16-May-89 09:48pm Subject: Re: File handling >>> The '^' indicates a pointer, and the position of it indicates direct or indirect addressing (to use assembly terms). >>> Actually I believe, to 'use assembly terms', pointers are in themselves indirect addressing but keep in mind the factor of dynamic data, so in assembly you might have: moval mypredefined_address,Register addl3 something,(Register),somewhere incl Register and in pascal: procedure Newnode(var p : pointer); begin if myusablenode = NIL then new(p) else begin p := myusablenode; myusablenode := p^.next end end; also consider this was set up like: type pointer = ^node; node = record data : datainfo; next : pointer end; Note that pascal incorporates the wonderful idea of 'forward addressing' as you may be familiar with in dealing with two pass assemblers, whereas in the above, node was declared as a pointer type whereas POINTER WAS DEFINED AS NODE TYPE and Node was defined AFTER this declaration. I still relate pointers to assembly by thinking in terms of dynamic indirect addressing since your aren't limited to a predefined data block rather you can access a data structure from the memory pool. --- * Origin: -=[ SoundingBoard of Houston (713)821-4148 HST ]=- (Opus 1:106/12) From: Rich Myers To: Charles Falconer Msg #165, 16-May-89 03:39pm Subject: Splitting Overlays > > Two possible solutions: make it smaller by distributing as an > LHARC self-unpacking archive (probably about 50%), or use the > SLICE recently published in PC Mag. LHARC has no restrictions, > SLICE may require clearance for commercial use. > > What kind of single program grows that big? curious. > The problem with those solutions is that the software will no longer run on a two floppy system (#1 requirment). This program is a point of sales tool for my companies agents in the field. It performs a larger number of comparisons and calculations for them. An example would be calculating a prospective clients paycheck, or the impact of an addtional TDA payment of $5 on their retirement, taxes, and paycheck. Rich --- Operetta V0.5.3 * Origin: The Twilight Zone (713) 497-5778 (1:106/301) *** This is a reply to #100. From: Lee Bollard To: Ken Wright Msg #166, 16-May-89 03:42pm Subject: Re: Which Turbo Pascal book? Thanks Ken, I did have version 2 of the Turbo tutor, but the text didn't integrate with the programs on disk hardly at all. I wasn't really satisfied with it. I suppose its been rewritten since then however. It's probably time I gave it another look. -lb --- * Origin: Sierra Son Electronics, Spokane, WA *HST* (Opus 1:346/2) *** This is a reply to #141. From: Carl Seiler To: Joe Fischer Msg #167, 17-May-89 11:29am Subject: Procedures Remember those two procedures that you posted a while back asking which ran faster? I tried them out and couldn't make the second one work on 5.0. The problem was the one that said "with Registers do" When I compile it, it says that it needs a "(" Did you get anyone else to respond to that question, and what is the problem that I'm having with it? I could re-post the code if you don't remember which one I'm talking about, but I'm not using my regular communications program right now so I don't know how to post it. -<Carl>- --- Opus-CBCS 1.10.vi * Origin: Tandy 2000 HST/DS (713)980-9671 Net 106 Archive (1:106/2000.0) From: Chris Cavers To: All Msg #168, 17-May-89 11:37am Subject: file locking I am thinking about using file locking for a door program that John Klein and I wrote. Has anybody out there used any of the file locking features of Dos (i.e. the share command and system functuin 5c hex code 00 hex)? Chris --- TAGMAIL v1.11.74 BETA * Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0) From: Chris Cavers To: Doug Johnson Msg #169, 17-May-89 11:39am Subject: use Use a fossil driver to incorporate the modem routines into your Backgammon door. --- TAGMAIL v1.11.74 BETA * Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0) From: Chris Cavers To: Brian Corll Msg #170, 17-May-89 11:53am Subject: porting What you can do to ease porting from one environment to another is to put all the turbo specific routines into a module. And put all the other code into the rest of the program. What i mean about putting all the turbo spceific routines into a module is tht the idea is that for any turbo specific routine you use, you create a procedure that generically performs that function for example consider the get date command PROCEDURE get_date(VAR month,day,year : INTEGER); BEGIN whatever the turbo get date call is END; All the rest of your program sees is the get_date procedure that you have written. Therefore, to port this function to another environment all you have to change is the body of the get_date procedure The idea if putting all the compiler specific library calls into a module is useful in the sense that all you have to change to port your program is that one module. Of couse this approach adds code to the exe file but porting is made much easier. --- TAGMAIL v1.11.74 BETA * Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0) From: Chris Cavers To: Charles Falconer Msg #171, 17-May-89 12:00pm Subject: minimal program I think that the ( identifier_list ) is unnecessary therefore, the minimal pascal program would be PROGRAM a; BEGIN END. --- TAGMAIL v1.11.74 BETA * Origin: My Private Hell -- Houston,Tx (713)980-4824 (1:106/666.0) From: Henry Bailey To: Steve Brennan Msg #172, 17-May-89 10:00pm Subject: Re: printer to check printer: {$I-} turn error checking off... write (lst,'something'); {$I+} back on again if ioresult = 0 then....... (if ioresult = 0, then printer is on... --- QuickBBS v2.03 * Origin: The Hour Glass * SDNet/Works!(Tm) *HST* (1:300/12) From: Steve Bremner To: Michelle Wyner Msg #173, 18-May-89 01:50pm Subject: Re: toolbox I use the Turbo Editor toolbox and found it a whole lot easier than writing my own editor for my programs! --- * Origin: The Questor Project - (703) 525-4066 HST (Opus 1:109/130) *** Part of a conversation. From: Brian Corll To: David Cressey Msg #174, 18-May-89 08:04pm Subject: Re: PASCAL????????? Right you are, David, I misspoke. Too many late nights at the keyboard. --- ConfMail V3.31 * Origin: Ten B.C. Micro Systems (1:150/501.21) *** Part of a conversation. From: Brian Corll To: David Cressey Msg #175, 18-May-89 10:12pm Subject: Re: PASCAL????????? BTW, thanks very much for taking the time to post those lengthy explanations. Youse is a good guy. --- ConfMail V3.31 * Origin: Ten B.C. Micro Systems (1:150/501.21) *** This is a reply to #174. From: Jim Colligan To: Douglas Purdy Msg #176, 17-May-89 12:21pm Subject: Errorlevels > I was wondering if any one out there knew how to exit a program with an > errorlevel so that a batch file can use it?? Thanks for any help any one > can give me!! Look up the Halt procedure. Essentially it takes a word variable/constant as an argument and kicks that out as the errorlevel. Example... ...... halt(25); ...... will stop the program in its tracks and dump to DOS with an errorlevel of 25. Talk atcha later... --- FD 2.00 * Origin: Curmudgeon Point - Charleston, SC (1:372/1.1) *** Part of a conversation. From: Steven Cohen To: All Msg #177, 16-May-89 05:28pm Subject: julian date does any one know where to get the julian date function in pascal? --- QuickBBS v2.03 * Origin: The Philosopher's Stone, Orlando 407-299-3661 (1:363/23) From: Jerry Labbe To: All Msg #178, 17-May-89 07:33pm Subject: T.V. TECHNICIAN WANTED -- T.V. BENCH TECHNICIAN ------------------------------- MINIMUM 10 YEARS EXPERIENCE. EXPERT with N.A.P. - ZENITH - RCA & SONY Recent FACTORY Seminars on above PERFERRED! If you are a producer of quality work, YOU WILL FIT THIS SPOT! CONTACT Jerry Labbe' at: (407)894-3456 or (407)898-8628 --- QuickBBS v2.03 * Origin: Trading Post (1:363/4) From: Bob Stearns To: Alton Prillaman Msg #179, 17-May-89 08:50pm Subject: TTT Sorry about that. I asked a very similar question a few months ago and was told (and I believe it to be correct) that the flags are "additive" to the basic no-flag case; so if you ask for directories, you get directories and plain vanilla files. You have to filter the directories out your self, looking at one of the status bits in the returned file description record. --- msged 1.96S ZTC * Origin: Bob's Office (1:370/16.3) *** Part of a conversation. From: J Meeks To: Irene Governale Msg #180, 16-May-89 06:07pm Subject: Re: String Similarity Check Thanks, I'll upload it for you under the filename 'SIMIL.ARC' (if I haven't done so; I'm on soooo many BBSes I forget things like this). Herb Martin over on Blue Ridge Express is also helping, but THE MORE, THE MERRIER! Hope you get some use out of it. Are you a Doctor Dobb's Journal subscriber yourself? Just wondering. Later, and ROCK 'n' ROLL! J Meeks --- QuickBBS v2.03 * Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160) *** Part of a conversation. From: J Meeks To: Brian Corll Msg #181, 16-May-89 06:11pm Subject: Re: String Similarity Check Sure thing! It's called SIMIL.ARC. As I said to Irene Governale from Pennsylvania, The More, The Merrier! The source will be on the Computers & Communications BBS as an ARC file because I can't afford long distance; otherwise I' d gladly send everyone copies! Thanks, and if you can't swing the LD call either, then I'll see if it can be chopped into message-length chunks; doubt it, as there's a lot of assembler in even a small function! Number: Computers & Communications, RIchmond, Va, 804-264-0035. Thanks again, and remember to ROCK 'n' ROLL! J Meeks --- QuickBBS v2.03 * Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160) *** Part of a conversation. From: J Meeks To: Thomas Oatman Of 860/1 Msg #182, 16-May-89 06:14pm Subject: Re: String Sim. Check Thanks for your help; I'm sorry I can't send everyone who's replied a copy personally, but my phone bill just won't handle it. But I will upload it here to the Computers & COmmunications BBS in RIchmond, Va, at 804-264-0035. If you can't swing the LD call, I'll try chopping the source into several messages and posting them; it'd be a lot of 'em, though! Thanks for your help, and remember to ROCK 'n' ROLL! J Meeks --- QuickBBS v2.03 * Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160) From: J Meeks To: Jim Forbes Msg #183, 16-May-89 06:16pm Subject: Re: String similarity check Actually, it's quite a lot of text, but I'm uploading it to the Computers & Communications BBS in Richmond, Va, at 804-264-0035. Sorry I can't send it to you personally at your host, but I've been flooded with replies. See my latest net msg on this subject, as I'm really getting inundated. Thanks for the offer of help, and remember to ROCK 'n' ROLL! J Meeks --- QuickBBS v2.03 * Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160) *** This is a reply to #181. From: J Meeks To: All Msg #184, 16-May-89 06:25pm Subject: String similarity- thanks! I have nearly been overwhelmed by all the response to the call for help on a string similarity checking routine. I had intended just to upload the assembler source code and a group of C routines as an ARC file here, but I will try to break it up into message-sized chunks so I can send it via net to everyone interested. It may prove to be too cumbersome, though, and there are many support files you'll no doubt find useful, so the ARC may be your best bet. It's called SIMIL.ARC, and I am uploading it here to the Computers & Communications BBS in Richmond, Va, 804-264-0035. I am sorry I can't upload the ARC individually to each of you, but my lack of bucks pretty much precludes that! I do thank everyone for their interest and willingness to help out -- I think that we can all have a useful tool here when we're done (and, if you guys are anything like me, maybe even a whole family of tools). I'll try to send the messaged form of the assembler source within the next week or so if possible (I am pretty busy these days at work); in the meantime, thanks again and remember to ROCK 'n' ROLL! J Meeks --- QuickBBS v2.03 * Origin: C & C - Computers & Communications (804) 264-0035 (1:264/160) From: Tracy Milburn To: Greg Franklin Msg #185, 17-May-89 12:23pm Subject: Re: KEYBOARD Exactly... the questin of number systems IS irrelevatn; that is exactly what I was telling Larry. --later-- --Tracy-- --- TBBS v2.0 * Origin: Joe's Garage Sex, Unix and Rock-n-Roll (170/201) *** This is a reply to #84. From: Tracy Milburn To: Jim Forbes Msg #186, 17-May-89 12:29pm Subject: Re: POUND SIGN (#) But what is "standard" by my definition is what is "standard" on all computers. If you take a "standard" pascal program and move it to a completely different system, chances are QUITE slim that it won't work. Take turbo with predefined string variables and move it to a mac and see what happens. I'm not trying to start an argument either, by the way. "More to the point" is a matter of opinion. Personally, I like the logic in programming - that's the ONLY thing I like about it; seeing how things work and fall together. I guess I just like to do things right. L8r on --Tracy-- --- TBBS v2.0 * Origin: Joe's Garage Sex, Unix and Rock-n-Roll (170/201) *** This is a reply to #42. From: Carl Frisk To: Michelle Wyner Msg #187, 18-May-89 04:36am Subject: Re: toolbox Yes I've used (well still use) The Data Base Toolbox. Definately worth buying so as not to reinventing the wheel. --- QuickBBS v2.03 * Origin: LSO * Everett WA * 206/334-3088 (1:344/117) *** Part of a conversation. From: Mike Hinds To: Greg Smith Msg #188, 17-May-89 12:25pm Subject: Re: loop control varaibles GS> > In fact I'd like to see BASIC banned from professional use. GS> Any chance of writing a message like this to major developers? One GS> particullarly messing field (ie: all programs useing basic) is the video GS> software market! I have never seen a program in this market not GS> written in basic. I have, and it gets worse -- the video rental software my organization uses is written in COBOL. Yes, it works, but boy is it FAT - must be made up of at least a hundred various executables, seemingly EXECing each other at random... --- msged 1.99S ZTC * Origin: /\/\ Turbo NorthWest \-\ Everett, Washington (1:343/27.2) *** Part of a conversation. From: Mike Hinds To: Greg Franklin Msg #189, 17-May-89 12:09pm Subject: Re: How to turn of the cursor. GF> If I wanted to produce a large program, a Toggle or OnOrOff type would GF> be very useful, and I would declare it globally. Still, you're right GF> to say that using a boolean func is easier. Maybe not as easy to GF> understand first off....? The trick I use currently is CONST On = True; Off = False; and then my SetCursor routine, which accepts one Boolean parm, is called: SetCursor(Off); BarMenu; SetCursor(On); GetString(St); --- msged 1.99S ZTC * Origin: /\/\ Turbo NorthWest \-\ Everett, Washington (1:343/27.2) *** This is a reply to #24. From: Mike Hinds To: Michelle Wyner Msg #190, 17-May-89 12:27pm Subject: Toolboxes MW> Does anyone use any of those TP Toolboxes (ie. Games, Graphics, MW> Database, etc..) that you can buy extra? Are they worth getting? I had ALL of them for TP3, but only upgraded the DataBase Toolbox for TP4. I can't (yet) live without it - sometimes tricky to configure, but it gets the job done much better than I can hope to. It works as advertised with TP5. I would like (someday) the Editor Toolbox for TP4. I was able to get TP4 to compile the TP3 version after a few "adjustments". Haven't messed with it for over a year, however. I have had no need for any of the other toolboxes. (4th-hand rumor: the Graphix Toolbox doesn't even support BGI and CHR formats, and isn't much of an upgrade - not very useful) --- msged 1.99S ZTC * Origin: /\/\ Turbo NorthWest \-\ Everett, Washington (1:343/27.2) From: Kevin Lowey To: Nathan Drost Msg #191, 17-May-89 04:42pm Subject: Re: COMMUNICATION WITH PASCAL ND> I was writing a door in tp, and everything was working fine ND>except the remote user could not enter anything at the prompts. ND> Do i need to use ReadPort(Comport,Ch);? (With Yasync). Also, ND>i was writing it with no comm. routines, just using CTTY. If you don't use the CRT unit, then your door should work fine with CTTY. If you do use the CRT unit, then you should rewrite the program so it doesn't use it. Otherwise it won't work as a door. To make things simpler, I have available on my BBS a file called KVL_ANSI.PAS that emulates MOST of the CRT functions using ANSI.SYS and DOS calls. Just USE the unit instead of CRT and most programs won't know the difference (although they will be MUCH slower). I intend to rewrite this "properly" at a later date by making it a Text File device driver. I accept OPUS file requests and allow first time downloads. I can run 2400 baud. -- Kevin Lowey --- * Origin: Univ. of Saskatchewan, (306) 966-4857, 2400 baud (Opus 1:140/43) *** Part of a conversation. From: Kevin Lowey To: Andy Lester Msg #192, 17-May-89 04:49pm Subject: Re: FOR loop dangers AL>As long as it lets me use global loop vars, I'm happy. I shouldn't AL>have to allocate space on the stack when I don't want to. I don't think that was the point. If you allow GLOBAL variables in loops, it is very easy to use the same variable as a loop counter in two separate subroutines. This is no problem unless the programmer forgets this (or a new programmer has to modify the code). What might happen is the first routine, while looping, might call a second routine that uses the SAME loop counter. This would mess things up royally, either causing infinite loops or making loops finish early. There ARE reasons for these restrictions ... -- Kevin Lowey --- * Origin: Univ. of Saskatchewan, (306) 966-4857, 2400 baud (Opus 1:140/43) *** This is a reply to #89. From: Dennis Smith To: All Msg #193, 18-May-89 09:53pm Subject: Information I would like to know if anybody could recomend an easy to read book for Turbo Pascal 4.0. I have the Borland book that came with the disks but it isnt very clear in a lot of areas. I took a class for 3.0 and am having a little difficulty understanding the comp. directives, uses statments, and comm port applications. I would appreciate any suggestions Dennis --- QuickBBS v2.03 * Origin: -=> CyberNation <=- in Oklahoma City! (405)789-9108 (1:147/54) From: Nolan Walker To: David Bradley Msg #194, 19-May-89 12:56am Subject: Pascal to other machines... Is there another language "besides" C that is easier than C, and can port to other machines easily. What is the best portable language that you know of? Thanks --- * Origin: >>>====> Bullseye OPUS {Stockton, CA} (Opus 1:161/31) From: Nolan Walker To: David Bradley Msg #195, 19-May-89 01:20am Subject: pascal what is this pascal called UCSD or something like that Pascal... is that what Turbo Pascal is? NW --- * Origin: The Back Door Bbs, Stockton CA, (209)952-9430 (Opus 1:161/206) *** Part of a conversation. From: Nolan Walker To: Allan Nelson Msg #196, 19-May-89 01:25am Subject: Thanks!!! Thanks for the vote of confidence Allan, it sure helps. I take it that you read my message that I don't even know basic, and you think I will be able to proceed with pascal without very many draw backs? What is Turbo Pascals standard? Is it something called UCSD(?) pascal? Since you know pascal, you said something about getting an the external compiler... is there not one included in Turbo Pascals package already? I know nothing about Turbo Pascal, if you can tell me anything ELSE i should know before spending $$$, I would really appreciate it! How much will a good pascal set up cost me? My last question for now, is PASCAL easier than basic??? Thanks -- A lot! --- * Origin: The Back Door Bbs, Stockton CA, (209)952-9430 (Opus 1:161/206) From: Loyd Craft To: Mark Farnan Msg #197, 17-May-89 09:03pm Subject: Re: Address Needed I never DID get your address. I tried to send you a message after you file requested from my BBS, and it went to the Zonegate, but I never found out if it got to you or not. --- msged 1.97S ZTC * Origin: /X\icroCosm - Owosso, Mi. 517-725-8077 (1:159/900) *** This is a reply to #35. From: Jason Duerstock To: Mike Wanta Msg #198, 16-May-89 12:54pm Subject: Re: Turbo Pascal No, the odds are 1 in 6 because on 2 dice there are a total of 36 combinations possible (6*6) and there are 6 possible pairs [1-1,2-2,3-3,4-4,5-5,6-6]...so 6/36 = 1/6... --- FD 2.00 * Origin: (1:135/1) From: Jason Duerstock To: Ken Wright Msg #199, 16-May-89 04:25pm Subject: Need Paging Routine How about this: uses printer; const linecounter:byte=0; { to initialize it } formfeedstring=#12; procedure println(x:string); begin inc(linecounter); if (linecounter>=66) or (pos(x,formfeedstring)<>0) then begin linecounter:=0; if pos(x,formfeedstring)=0 then writeln(lst,formfeedstring); end; writeln(lst,x); end; The only problems I can see here are whatever the string your printer uses to do a form feed, and if you try to do a hard form feed...I've tried to compensate but I haven't tested this myself...but it's the basic shell for you what you need...oh and also you have to use println('Page #'+x) instead of println('Page #',x) as you would with writeln, but otherwise you have complete functionality.. --- FD 2.00 * Origin: (1:135/1) *** This is a reply to #39. From: Tomas Gradin Of 135/10 To: Jonathan Bradshaw Msg #200, 15-May-89 01:30am Subject: HELP NEEDED WITH MODEM PORT STATUS JB> I was wondering how I could read the modem stats from pascal, such as JB> DSR, CD, etc. I have an internal modem and would like to create a TSR JB> to display the modem stats on the screen, there are a few programs JB> around but they don't do everything I would like. Read a ± Z ¢k *** This is a reply to #119. From: Joerg Wirtgen To: Peter Stewart Msg #201, 15-May-89 01:58pm Subject: Re: Borland Editor > > Here in germany you can buy an program who generates tp5- > > compatible-character-fonts. > I would be very grateful if you would post the name of the program and where > it can be ordered. FontEdit PC, 99,- DM (ca. 60$ I think) For posting you have to add 5,- DM. And you have to tell wheter to receive 5.25 or 3.5 disks. The address: DMV-Verlag DOS international Postfach 250 3440 Eschwege And I didn't try the program yet, but they always say that it is able to produce these fonts. Bis dann . . . Joerg --- RohrpostixMail V3.9e * Origin: Always look on the bright side of life (2:245/3) *** This is a reply to #135. From: Andreas Gleichmann To: All Msg #202, 15-May-89 09:57pm Subject: TP5 BUG ? Hello User ! I have a litte problem with the graficfunktion IMAGESIZE. The theoretikal result of IMAGESIZE(1,1,4,4) at CGA (320*200) must be 8 (4 byte picture + 4 byte adress). But the function result is 14. The result at IMAGESIZE(1,1,5,4) is also 14 but theoretikal it must be 12 (8 byte picture + 4 byte adresse). Also the formula in the discription for this function is wrong because the result is not equal to the theory. Is there a bug in this function ? Have anybody problems like this, too ? Gruss Andreas. --- QuickBBS v2.03 * Origin: Lion's Magic Box ** 6507 Ingelheim ** TEL. 06132 - 3257 (2:241/8) From: Michael Codanti To: Dale Winters Msg #203, 18-May-89 05:45pm Subject: Re: dos access > What I really want to do is execute a dos > program from > turbo 5. I know you have to state "uses crt, > printer, DOS;" > initially, but how do I execute a DOS external > command? Dale, You use the EXEC procedure. Example: EXEC(Getenv('COMSPEC'),'/C PCPLUS'); When using this be sure to have memory($M) set to leave room to shell out. Michael --- D'Bridge 1.19α * Origin: Bruin Hideout (1:105/402) *** Part of a conversation. From: Michael Codanti To: Douglas Purdy Msg #204, 18-May-89 05:45pm Subject: Re: Errorlevels > I was wondering if any one out there knew how to exit a > program with an errorlevel so that a batch file can use it?? > Thanks for any help any one can give me!! You use HALT. Example: Halt(2); To halt with an everlevel of 2. Michael --- D'Bridge 1.19α * Origin: Bruin Hideout (1:105/402) *** This is a reply to #176. From: Bill Sawyer To: Mike Wanta Msg #205, 18-May-89 08:18am Subject: Re: Turbo Pacal Wow, real wrong. Here's the scoop. The probability that your referring to is only valid when applied to the beginning, let me explain. If I say to you that I am going to roll a die 6 times, and its going to come up 6 everytime, the probability of that is (1/6)(1/6)(1/6)(1/6)(1/6)(1/6). But let's say that I am only going to roll the die 1 time, the chance of a 6 is now 1/6. Question, does it matter that I have rolled the die 5 previous time, and they all have come up 6? No. That's because each test (if you will) of the die is INDEPENDENT of the previous tests. The die is still capable of rolling a 6 no matter how many 6's its rolled before. That's what Ross was referring to I believe. Hope that explains it. Adios BS --- QuickBBS v2.03 * Origin: The Philosopher's Stone, Orlando 407-299-3661 (1:363/23) From: Greg Smith @ 902/10 To: Chris Browne Msg #206, 18-May-89 12:03pm Subject: Re: Redirection > Fantastic! May I FREQ you please? Yes, I'll put the routines up as TPIODIR.ZIP and have the sysop make it freqable. Node address should be on the bottom of this message.... The code should be available by Sunday, May 21 - I've got to do a little work on it to make it a "general" interface. However, I planned to do it anyways.... Greg Smith - NYN --- Mach-10 BBS v 2.00 # Origin: The Not-Yet-Named bbs Tucson, Az (602) 577-3650 (8:902/10) * Origin: Network Gateway to RBBS-NET (RBBS-PC 1:10/8) From: Dj Murdoch To: Heikki Levanto Msg #207, 15-May-89 07:32am Subject: Re: multiple conditions in If Then HL> By all means write customisable procedures, but please try HL> to make them as good as possible, allowing even for the HL> 'unlikely' national characters. The Turbo Professional library from Turbopower Software (P.O. Box 66747, Scotts Valley, CA 95066, U.S.A.) provides case-changing routines that handle the national characters, and much more. If people use it, then there won't be a problem! --- Msg V3.2 * Origin: Murdoch's_Point - - (1:221/162.1005) From: Dj Murdoch To: Jesper Wolf Msg #208, 15-May-89 07:38am Subject: Otherwise (was: constant expressions) JW> Another thing they screwed up was the else part of a case JW> statement. Here the standard is to use the Keyword JW> Otherwise instead of the ambiguos else. JW> But they wont change it since it would break to much code out there. Why do you think the else is ambiguous? I've never been able to see the logic behind this argument. On the other hand, keeping the number of keywords low is a benefit to everyone - why introduce another one? Do you know the reasoning used by the standard setters? --- Msg V3.2 * Origin: Murdoch's_Point - - (1:221/162.1005) From: Dj Murdoch To: S. Eric Asberry Msg #209, 16-May-89 12:05am Subject: Re: Borland BGI Graphics * Forwarded from 'ECPROG' area by Dj Murdoch on 1:221/162.1005 using Msg V3.2 SE> > ZS> Does anyone know anything about the Borland Graphic SE> > ZS> Interface (BGI)? I'm interested in writing/getting a SE> > ZS> driver that will take advantage of the 16 color display SE> > SE> > ZS> mode on Tandy 1000 and PC-jr computers. SE> > SE> > I saw a partial one today on Usenet. I saved a copy, but SE> SE> PLEEEEEASE post it or make it available on your bossnode's SE> board if he supports file requests. I would LOVE to get SE> my hands on a copy of that! I don't think my boss supports file requests, but I'll ask around and see if I can find someone locally who does. The full listing is 50K, so I can't just post it here. Anyone who can't wait, should send a diskette and mailer to me at D.J. Murdoch Dept. of Statistics & Act. Sci. U. of Waterloo Waterloo, Ontario, Canada N2L 3G1 Please include either enough Canadian stamps for return postage, or a dollar (of _any_ nationality). --- Msg V3.2 * Origin: Murdoch's_Point - - (1:221/162.1005) *** There is a reply. See #211. From: Dj Murdoch To: Charles Falconer Msg #210, 16-May-89 06:22pm Subject: Re: else/otherwise (was Constant expressions) CF> A practical solution would be to accept either in a new CF> release. PascalP uses otherwise (not else), and doesn't CF> even make it a reserved word (to conform with the CF> standard). If otherwise is found when a case label is CF> expected, it is accepted. Then the standard flag is CF> checked, and if set a warning issued. Now go ahead and CF> compile the exception statements. This is feasible CF> because otherwise is never used in any other context, and CF> thus use as an identifier still remains possible. Does this compile? Does the compiler look ahead to see if a colon is coming? const otherwise = 2; var i : integer; begin i := 3; case i of 1: writeln('one'); otherwise: writeln('two'); otherwise writeln('other'); end; end. --- Msg V3.2 * Origin: Murdoch's_Point - - (1:221/162.1005) From: Dj Murdoch To: Dj Murdoch Msg #211, 17-May-89 05:11pm Subject: Re: Borland BGI Graphics SE> > ZS> Does anyone know anything about the Borland Graphic SE> > ZS> Interface (BGI)? I'm interested in writing/getting a SE> > ZS> driver that will take advantage of the 16 color display SE> > SE> > ZS> mode on Tandy 1000 and PC-jr computers. SE> > SE> > I saw a partial one today on Usenet. I saved a copy, but SE> SE> PLEEEEEASE post it or make it available on your bossnode's SE> board if he supports file requests. I would LOVE to get SE> my hands on a copy of that! Geoffrey Welsh, sysop of Izot's Swamp (1:221/171, 519-742-8939, HST 9600 baud) has kindly agreed to make the file available. It's called BGIEXMPL.ARC, and is available to first time callers from his Area 1, or by Freq. --- Msg V3.2 * Origin: Murdoch's_Point - - (1:221/162.1005) *** This is a reply to #209. From: Dj Murdoch To: Ross Wentworth Msg #212, 18-May-89 10:20pm Subject: BGI file format on CIS? Earlier today (the 18th), I saw your (?) message about Borland saying the BGI format would be released on Compuserve on the 15th. I accidentally killed the message, so I hope I'm talking to the right person. I just took a look in the TP5 and TC2 areas, and didn't see any sign of it :-(. I've left a message to the sysops, and will get a copy if it shows up. --- Msg V3.2 * Origin: Murdoch's_Point - - (1:221/162.1005) From: Hs Yeoh To: Steve Hodges Msg #213, 17-May-89 01:58pm Subject: Re: Printer Status Hi, I suggest you refer to a Printer_BIOS function in this book -Turbo Pascal Library by Douglas S. Stivison. ( on page 119). Due to copyright reasons I cannot list the whole function here. But I think it will satisfy your requirements. This function accesses the IBM PC BIOS interrupt 17 hex to either reset the printer or to obtain its status. It can test for the six different printer conditions, which are Bit 7 : Not Busy := status AND 128 > 0 Bit 6 : Acknowledge := status AND 64 > 0 Bit 5 : OutofPaper := status AND 32 > 0 Bit 4 : Selected := status AND 16 > 0 Bit 3 : IOError := status AND 8 > 0 Bit 0 : TimeOut := status AND 1 > 0 Bye. --- * Origin: Wizboard - Malaysia - (+60)-03-(274-1213)/(274-7579) (Opus 3:609/3) *** Part of a conversation. From: Hs Yeoh To: All Msg #214, 18-May-89 09:37pm Subject: I/O Redirection in Turbo Pascal Can anyone help me with this? I'm trying to redirect all my input and output ( for an on-line database program that I writing) to one of ny comm ports. I've thought of a possible method but I'm not sure if it will work. My idea is to use the EXEC procedure in TP and execute the folllowing MS-DOS program i.e. MODE COM1:1200,N,8,1,P and then MODE LPT1:=COM1 According to my MS-DOS handbook, this should redirect all I/O through the COM1 port. My question is this? Could I just add LST to every write, write, read and readln in my program to achieve my objective above? Much appreciate any help on this. Bye. --- * Origin: Wizboard - Malaysia - (+60)-03-(274-1213)/(274-7579) (Opus 3:609/3) From: Lin Qinglin To: All Msg #215, 14-May-89 05:58pm Subject: interface ][ bbs _[ [[ [ [__[ [___ [__[ [___\\\ [__ \\\ \\ \\ [ [ [ [ [ [\ [\\[ [_ [\[ [ [\ [ [ \[ [ _[ [ [\\ [ [ [ [ [ ___ [\\\ __ __ Telephone: (065)-293-5455 SysOp: Lone Wolf BDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDD? 3 A Brand New Bulletin Board System for EveryOne ... 3 3 3 3 20 DoorWays + 1 Fossil GateWay (PCBoard/Ext.) 3 3 8 Conference with Bulletins and Files DIR. 3 3 Total of more than 100 Bulletins and Files 3 3 in main board. All operates at PCBoard 12.1/E 3 3 3 3 Now taking in 200 users in 1 week Beta-Test Hours 3 3 from NOW to 10th June 1989. Close after that. 3 3 Operating time: 2100 - 1600 3 @DDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDDY --- ConfMail V3.2 * Origin: THE SINGAPORE LINK-Republic of Singapore 9600-HST (3:600/1) From: Tony Hsieh To: Julian Colt Msg #216, 19-May-89 03:28pm Subject: Re: Exec -> -> Hmmmm....well, at any rate, I WANT IT. NOW! -> -> How can I go about testing it? It might be good to -> -> have a test site here anyway. Call my board at 1-415-472-5632 for more info. --- EBBS v0.0A * Origin: EBBS Support/Test Site 415-472-5632 (1:161/999) *** There is a reply. See #242. From: Jonathan Bradshaw To: Charles Cremer Msg #217, 16-May-89 03:54pm Subject: Re: OBTAINING MODEM PORT STATUS Thanks, I appreciate the info. - Jonathan Bradshaw --- TBBS v2.1/NM * Origin: RCN 530MB 4-Line *Multi-Line* S.Bend,IN (219)237-0651 (227/2) From: Patrick Drouin To: Charlie Deck Msg #218, 17-May-89 09:57am Subject: PASCAL Hi Charlie! -> Oooo.. sounds nice. I uselly program in basic but I would be -> happy to learn Pascal. I have programs made from Pascal but -> they're Ya me too! If I here anything from that Pascal_Lessons Echo I'll let you know about it! Bye! Patrick --- TMail v1.10 * Origin: [SQUARE-HEADs] MultiLine : TBBS/SEAdog : QuebecCity Canada (1:240/1) *** Part of a conversation. From: Paul Lahaie To: Hs Yeoh Msg #219, 18-May-89 07:30am Subject: Re: Doors Program in Turbo Pascal > are to screen and inputs from keyboard, these I have to > redirect to one of my comm ports. Could I just change all > my write('xxxxxx') to write(com1,'xxxxxxx') and read(yyy) > to read(com1,yyy)? I've seen in this months (or last's) PC World that a little Pascal code was written to Reassign Input/Ouput Procedure Redirect(filename: String[12]); Begin Assign(Ouput,Filename); Rewrite(Output); Assign(Input,Filename); Reset(Input); end; This SHOULD work... I've used it in my program in testing (only with CON). I think you need to include CRT in there somewhere. If you get lot's on errors you can Substitute Read(<var name>) by Read(Input,<var name>). -Paul --- * Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207) *** This is a reply to #71. From: Peter Henry To: All Programmers Msg #220, 18-May-89 10:34pm Subject: Ashton-Tate Say listen, anyone out there who make small utilities, I hear that Ashton-Tate is looking for you, as well as people who write manuals for software, if you are interested and if you believe me, leave me a message and I will tell you where I got my information, it isn't any secret but I don't want to waste anyone's time or the space in this message area. --- * Origin: RJ's Byteline *HST* Cumberland, Ont, Canada (Opus 1:163/207) From: Andy Lester To: Lee Hamel Msg #221, 18-May-89 05:18pm Subject: scan codes for F11 and F12 > Could someone please tell me the scan codes for F11, Alt-F11, Ctrl- > F11, F12, Alt-F12, and Ctrl-F12? I have one of those old kbd's, and > only have up to F10 ... thanks. RTFM. Page 582 of my Turbo 4.0 manual lists all the extended keycodes. Andy --- FD 2.00 * Origin: CONST PointName='Paradise City'; death=true; taxes=true; (1:115/790.2) *** This is a reply to #87. From: Andy Lester To: Charles Falconer Msg #222, 18-May-89 05:24pm Subject: Re: Constant expressions > >This is exactly the reason. The typed constants are just predefined > >variables. > > Since they are Non-standard, but useful, I suggest organizing as > follows: > > CONST > .... > TYPE > .... > CONST (* actually initialized vars *) > .... > VAR > .... Good idea. Most other compilers should barf on the CONST being declared after the TYPE, too. It really is a hideous practice that we, as programmers, exploit a bug in the compiler like this, though. Andy --- FD 2.00 * Origin: CONST PointName='Paradise City'; death=true; taxes=true; (1:115/790.2) From: Brian Hird To: All Msg #223, 18-May-89 12:13pm Subject: not much We couldn't think of anything much to write about (me & Matthew Webster) except that y'all should be using this echo ... ! Just a thought ... Why is pascal so much more widely used than m2? (ok, we know the answer to that one) - but does it deserve to be so? Does anyone have a copy of the Dhrystone or Whetstone pascal source code? --- FD 2.00 * Origin: ABSOLUTE ZER0 BBS -- V21/23/22/bis on + 44 1-741-7233 (2:254/18.2) From: Brian Dunworth To: Betsey Doane Msg #224, 19-May-89 04:35pm Subject: Pascal Pretty Printers > I read about Beautif4.ARC. How might I get it? That would > be nice.--Betsey Doane--I'm new to this Echo. Hi, Betsey, and welcome to the echo! You may FREQ 'BEAUTIF4.ZIP' from 267/54 at HST speeds. Brian --- TPBEdit v3.2 * Origin: The Final Frontier - Upstate NY - [HST] (518)761-0869 (1:267/54) *** This is a reply to #108. From: Chris Jantzen To: Chris Browne Msg #225, 19-May-89 02:20pm Subject: LZH What is a LZH file anyways??? :-) Chris =-> --- ConfMail V4.00 * Origin: + T.M.E. + Coos Bay, OR 503/269-1935 (1:152/18) + (8:7700/0) From: Joe Fischer To: Bill Sawyer Msg #226, 19-May-89 11:30am Subject: Re: Windows (again) I hear my ears ringing, Bill, (* See note below.....HELP!!!!!!!!!!!!!! HELP!!!!!!!!!!!! *) VAR MSG,MOVE :STRING[15]; N :Integer; Procedure HELP; Begin (* SHOW HELP SCREEN *) End; Procedure CALL_EP; Begin (* MAKE En` Passant MOVE *) End; Procedure SQK; Begin SOUND(5000); DELAY(40); NOSOUND; End; Procedure NG; Begin GotoXY(72,20); Write(' '); GotoXY(60,22); Write('INVALID MOVE'); DELAY(800); GotoXY(60,16); Write(MSG); End; (*-------- Please tell me how to get rid of the GOTOs ---------*) Procedure GET_MOVE; (* Allow exit only if MOVE = proper format *) LABEL SKIP,TOP; (* EXAMPLES = D2 D4 E2 E4 A1 H1 H8 H1 *) Begin TOP: GotoXY(60,22); Write(' '); GotoXY(60,20); Write(' '); GotoXY(60,20); Write('ENTER MOVE :'); Move:= ''; READLN(MOVE); If MOVE = 'HELP' then Begin HELP; N:= 0; MOVE:= ''; GOTO TOP; End; If MOVE = 'QUIT' then Begin N:= 3; GOTO SKIP; End; If LENGTH(MOVE) <=4 then Begin (* MOVE must be length[5] *) MSG:= ' TOO FEW CHARS'; SQK; NG; GOTO TOP; End; If LENGTH(MOVE) > 5 then Begin (* String[5] will not work?? *) MSG:= 'INPUT TOO LONG '; SQK; NG; GOTO TOP; End; If Copy(MOVE,1,2) = 'EP' then Begin CALL_EP; GOTO SKIP; End; If Copy(MOVE,3,1) > '@' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,1,1) < 'A' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,1,1) > 'H' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,4,1) < 'A' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,4,1) > 'H' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,2,1) < '1' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,2,1) > '8' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,5,1) < '1' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,5,1) > '8' then Begin SQK; NG; GOTO TOP; End; If Copy(MOVE,1,1) = Copy(MOVE,4,1) then If Copy(MOVE,2,1) = Copy(MOVE,5,1) then Begin (* You can't move to same square *) SQK; NG; GOTO TOP; End; SKIP: End; (*------------ Please tell me how to get rid of the GOTOs ----------*) Begin ClrScr; Msg:= ''; N:= 0; Repeat GET_MOVE; WriteLN(MOVE); Until N = 3; End. NOTE ODDITY: TO CHECK STRLEN > 5 STRLEN CANNOT BE 5.... Okay, I admit I'm a low level, ex-Basic programmer. I wrote a Two Player Chess Board Game that checks inputs but does not move or check for Check or Checkmate. It runs good, but all those GOTOs!!!!! I've tried everything I know, but I can't make it more modular, I can't get rid of the GOTOs, and I can't figure out what comments are needed to make it more readable. { No one will see it anyway. } This is just a fragment of the program that restricts the move input to A1-8 thru H1-8. If no one can help me, it's OK, because I can't get anybody to come over and play chess any way. Does anybody have a code stretcher, this seems a little cramped? I also am not able to build a library, since I have never found a procedure I can use in another program. Any help will be appreciated, Joe --- QuickBBS v2.03 * Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15) *** This is a reply to #115. From: Joe Fischer To: Dale Winters Msg #227, 19-May-89 11:36am Subject: Re: dos access Sorry to butt in, but the term "DOS external command" always confused me. It merely means one of the .COM or .EXE files that comes on the DOS Disk. Why didn't they just call it "included utility" or something I could understand? Joe --- QuickBBS v2.03 * Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15) *** This is a reply to #203. From: Joe Fischer To: Greg Sherman Msg #228, 19-May-89 12:15pm Subject: Re: Three Things Hi Greg: I hope you don't mean use MEM[] on the stack. I get hollered at for using GOTO. I wonder if you have ever used a multiple condition switch (like Boolean True-False) typed integer with conditions 0,1,2,3,4, etc. Just one little If Then ....GOTO Skip: will get you right to the end of that procedure and any other procedures can check the switch, and skip if the condition is Logoff, and then the main program can check the condition and exit gracefully. Maybe a good programmer will tell you a better way, but I doubt if any one will consider mem'n the stack. The code to keep track of the stack pointer location would be unwritable. A multiple condition switch needs to be initialized at the beginning of the main program and needs to be a global variable. Hey, together, we can probably think of a lot of ways to learn bad programming practices (that work great). --- QuickBBS v2.03 * Origin: Dave's House - (512)836-2739 - "Turbo, What?" (8:7102/15) *** This is a reply to #52. From: Jens Stobernack To: Jody Shapiro Msg #229, 17-May-89 07:47pm Subject: Re: COMMUNICATION WITH PASCAL Yup, I finished. Unforunately with MAJOR bugs, so I have decided to keep my rountines to myself so that I don't get everyone else screwed up in my faults. But I can recommend you get a copy of 'PibTerm'. It was writen in TP3 and has all the functions for Modem I/O. Or if you cann't get that then Get your hands on a good Fossil Driver. (X00.sys is what I recommend). It comes with docs and a chart of all the posible things you can do with it. In the chart there is a code secttion. The number in that is assigned to the 'Regsiter.AH' and then the rest is given. Then use the command 'INTR($14,<Registers>)'. Know does that make sence?? I didn't think so... well if anyone around can understand this message then they'll explain it.. TTYL --- ConfMail V3.31 * Origin: EZ Duzzit BBS Calgary (1:134/20) *** This is a reply to #191. From: Allen Guest To: All Msg #231, 17-May-89 09:57pm Subject: Heap Management OK Problem # 1) Whenever I use Multiple GetMem, Freemem statements, I eventually run out of heap space. I am always careful to FreeMem the EXACT amount of GetMem heap area that I assigned. I release the memory as soon as I don't need it. Yet I still get heap overflow errors. Somehow my heap pointer is not be reset to the previously cleared up free area. How can I do this manually without using Mark & Release? Also while using the heap, My Graphic fonts (.CHR) get destroyed (overwritten) during this same program. Doesn't turbo reserve heap space for the .CHR & .BGI files when it loads then into the heap? So why does it get overwritten by heap usage? 2) I know turbo's heap management routines are not re-entrant. Dos is also not re-entrant. You can bypass the Dos limitation by checking if it's busy. (Active byte value, found at - ES:BX when calling Int $34). So how do you get around the Memory Management re-entrant problem? Does Pascal use the Dos interrupt functions $48-$4a & $58 to do it's memory management? If it does, then I can just check if DOS is active. If it doesn't - how do I check if Pascal is busy reserving or releasing memory? -Thanks - Allen Guest --- ConfMail V3.31 * Origin: EZ Duzzit BBS Calgary (1:134/20) From: Paul West To: Charles Falconer Msg #232, 19-May-89 12:43am Subject: Re: loop control varaibles In a message of <14 May 89 09:22:08>, Charles Falconer (1:141/209.1) writes: >>Worked on a G/L package for a Honeywell 115 in 1976. It was written in >>COBOL-68 using ALTERable GOTO's!!! > >even the COBOL shops don't allow this today. When I was in College (ancient History) The Cobol Classes were the only classes they taught where the GOTO was not allowed. Of cource when you consider that the only languages taught were BASIC, FORTRAN, RPG-II and COBOL, I suppose you can understand why! If I remember correctly, a GOTO was an automatic 0 on the program, and a ALTER ment you failed the class. --- msged 1.99S ZTC * Origin: P.I.E. [Everett, Wa] -=> HST <=- (1:343/27) - (1:343/400) *** This is a reply to #188. From: Paul West To: Charles Falconer Msg #233, 19-May-89 12:53am Subject: Re: Novice requesting help In a message of <15 May 89 09:37:18>, Charles Falconer (1:141/209.1) writes: >Don't know if it's still in print, but 'Programming in Pascal' by Peter >Grogono is one of the best mixes of introduction and usable facts. Funny you should mention that book. It was given to me by one of my college programing teachers. The college didn't teach Pascal at that time and he told me that this was a good book to read to learn it. If you want to try to find a copy here are the needed facts Programming In Pascal by Peter Grogono Copyright 1980 Addison-Wesly Publishing Co. INC. ISBN 0-201-02775-5 --- msged 1.99S ZTC * Origin: P.I.E. [Everett, Wa] -=> HST <=- (1:343/27) - (1:343/400) *** Part of a conversation. From: Kevin Lowey To: George Butts Msg #234, 18-May-89 04:10pm Subject: Re: TTT GB> A suggestion is to use '*.' as a mask to GB>eliminate a lot of other files. This, in itself, doesn't insure GB> success since you can have files without extensions. It may, GB>in the interim, save some headaches. This also is not a good idea because directories CAN have extensions. For example, on my BBS, I end all the directories for my echomail areas (like PASCAL) with .ECH. For example, the directory containing pascal messages is PASCAL.ECH. How about you read the file in with *.*, then look at the file attributes (in SEARCHREC I think) and see if it is a directory. -- Kevin Lowey (LOWEY@SASK.USASK.CA) (...!dvinci!lowey) --- * Origin: Univ. of Saskatchewan, (306) 966-4857, 2400 baud (Opus 1:140/43) *** This is a reply to #179. From: Dan Mcclellan To: Nolan Walker Msg #235, 19-May-89 06:58pm Subject: re: pascal UCSD Pascal ---> Univ. of California San Diega Pascal a superset of ANSI Pascal. Turbo Pascal, from Borland International, is also a superset of ANSI Pascal, the main difference is Turbo Pascal is directly aimed at microcomputer systems, MSDOS and ProDOS (Apple MacIntoshes)... I would recommend Pascal as a learning language over BASIC because that is what Pascal was designed as and is a good introduction to structured programming. Turbo Pascal is accepted worldwide as the absolute best microcomputer implementation of Pascal. Choose Your Weapon. Dan McClellan --- Fido v12 * Origin: Fort Knox Fido - Binkley/Fido/HST (405)843-3545 (1:147/49.0) *** This is a reply to #218. From: David Edwards To: Steve Hodges (bombay Duck Msg #236, 19-May-89 12:13pm Subject: printer status >Does anyone have a piece of code which returns the status of LPT1 >on a PC? I need to know if the printer is on/off line, error, >paper out etc. If you're working with Turbo Pascal 5.0, you can use this. You can fix it up as you wish. uses DOS; procedure ReadPrinterStatus(lptx:byte); {lptx is the number of the printer to check: 1 for LPT1, 2 for LPT2, 3 for LPT3} var regs : registers; begin {see IBM Hardware Tech. Ref. System BIOS Listing} {set up registers for INT 17 ; PRINTER_IO } regs.dx:=lptx-1; { 0 to check LPT1, 1 for LPT2, 2 for LPT3 } regs.ax:=$0200; { function ah=2: read printer status into AH } intr($17,regs); {interpret bits returned in AH } writeln('The following bits are set: '); if (regs.ah and $01)<>0 then writeln('time out'); if (regs.ah and $08)<>0 then writeln('I/O error'); if (regs.ah and $10)<>0 then writeln('selected'); if (regs.ah and $20)<>0 then writeln('out of paper'); if (regs.ah and $40)<>0 then writeln('acknowledge'); if (regs.ah and $80)<>0 then writeln('not busy'); end; { of ReadPrinterStatus } begin ReadPrinterStatus(1); end. --- QuickBBS v2.03 * Origin: -=< Athens FORUM Georgia >=< 404-546-7857 >=- (1:370/5) *** This is a reply to #213. From: David Edwards To: Ken Kubos At 1:161/11 Msg #237, 20-May-89 01:08am Subject: Heap Overflow The statement "new(counts)" allocates space for an array [1..300] of real. The statement "for v:=1 to 300 do new(counts);" tries to allocate space for 300 x 300 (9000) reals. To do what I think you want, you need only: var map : ^array[1..100,1..60,1..2] of real; counts : ^array[1..MaxVials] of real; . . begin new(map); {allocate space an array [1..100,1..60,1..2] of real} new(counts); {allocate space for 300 reals} end; Keep us posted! --- ConfMail V3.31 * Origin: Athens IBM PC Users Group (1:370/16) *** This is a reply to #111. From: Bob Stearns To: Mike Osier Msg #238, 20-May-89 12:42am Subject: powers Depends on what number to what power. If the power is a non-negative integer, the following routine (which ignores over/underflows) will do: function xtoi(x:real;i:integer):real; var z:real; begin z:=1.0; while(i>0) do begin if (i & 1)=1 then z:=z*x; i := i shr 1; if i>0 then x := x*x; end; xtoi := z; end; If the power is a real, then use the mathematical identity: x^y = exp(y*log(x)) Handle negative exponents by using the absolute value of the exponent, doing the operation and taking the reciprocal of the result. --- msged 1.96S ZTC * Origin: Bob's Office (1:370/16.3) *** This is a reply to #106. From: Larry Sanders To: Jens Stobernack Msg #239, 20-May-89 01:54am Subject: Re: Error Message -> Can anyone tell me what to do to fix a: -> -> Error 48: Code segment to large. -> -> Error??? I had that problem once, I don't know if you have the same CAUSE as I did, but my problem was simple to fix once someone told me that string variables with undefined length default to a length of 255. I just went back and defined some string lengths and cured the problem. I hope your problem is as simple. --- QuickBBS v2.03 * Origin: ]=[ The Pascal Programmer's Club ]=[ (918) 438-2749 (1:170/403) *** This is a reply to #230. From: Allan Nelson To: Michelle Wyner Msg #240, 18-May-89 09:36pm Subject: Re: toolbox They all have their points. But they are only available as far as version 4. If you want to use them with Turbo 5 you will have to recompile the source code. There's some interesting stuff in there. Allan --- * Origin: -=[ SoundingBoard of Houston (713)821-4148 HST ]=- (Opus 1:106/12) *** This is a reply to #187. From: Riley Carrier To: Peter Vdlanden Msg #241, 18-May-89 11:46am Subject: Re: RE: TP 5.0 and Smart Linking Peter, I have recently purchased the RTL from Borland and have found what you state to be correct. I have since created several new .tpu files for specific applications which must use a minimum amount of memory. Thanks for the information. Riley Carrier --- QuickBBS v2.03 * Origin: C&M Research Group's BBS - (512)826-0659 (1:387/1) From: Julian Colt To: Tony Hsieh Msg #242, 20-May-89 12:37pm Subject: Re: Exec Well, I'll see what I can do. You know, all the way on the other side of the country is a VERY long distance call. But just in case I all the sudden feel like making a $10,000 call, I wrote it down. ...j --- QuickBBS v2.03 * Origin: Summer=Storms.. are you backed up? MidiThru BBS (1:109/410) *** This is a reply to #216. From: Bob Baker To: All Msg #243, 19-May-89 10:54pm Subject: 80 x 43 in EGA I've been programming with TP since she first hit the stands with 3.01, and I need a little help. Is there anyone out there that knows of a way to get the EGA monitor to run 43 lines in 43-line mode? I can get the 8x8 font loaded, but it will only work for 25 lines, unless I run the program again immediately, in which case it will THEN switch to 43-line mode. Anybody out there can help???? Bob --- QM v1.00 * Origin: * T P C * A Techie's Dream {HST} (615)356-0453 (1:116/4000.0) From: Michael Codanti To: Andy Lester Msg #244, 18-May-89 09:26pm Subject: Re: echo > Can anybody who's done work with OOP come up with a > real-world application that uses OOP? The examples that > they give are useless, like having a "draw shape" part of a > circle data structure. I wanna see real code that uses it, > preferably in a business-type application. Yeah I would like it if someone could try to explain exactly what Object Orinted Programming is! Michael --- D'Bridge 1.19α * Origin: Bruin Hideout (1:105/402) *** This is a reply to #103. From: Douglas Purdy To: Jim Colligan Msg #245, 19-May-89 02:01pm Subject: Thanks Thanks for telling me that I was looking in all sorts of manuals for the way to exit with an error level. Thanks once again. --- Lynx v1.30 * Origin: EastSide Data Services - The New 105/61! *** There is a reply. See #246. From: Douglas Purdy To: Michael Codanti Msg #246, 19-May-89 02:03pm Subject: Thanks Thank for the help I realy appreciate your help. --- Lynx v1.30 * Origin: EastSide Data Services - The New 105/61! *** This is a reply to #245. From: Chris Graham To: Nolan Walker Msg #247, 18-May-89 04:42pm Subject: Re: Novice requesting help A lot to answer... TURBO Pascal, by Borland of course (don't even mention Microsoft to me when speaking of programming), will tell you what the error is, where it is, and put you there. Starting from version 4 and going into 5 there is a built-in Help feature, which is very good. You can get help on nearly anything, by topic or by pressing CTRL-F1 when on the word you want to look for. You can, for example, get a quick run-down on any command's parameters by doing this. Version 5 is even better, allowing you to get help on the actual syntax of setting out programs, such as variable definitions and procedures. Also, the TURBO editor is very good with block and search-and-replace commands. I suggest you set these yourself using the installation program, as the factory-set ones are of the old WordStar variety. For a book, I would again suggest something by Borland-Osborne. The only books I have read of theirs, though, are not what you would call beginner. And yes, I would recommend Pascal as a first [computer] language! It, I think, would be easier to go directly there than from BASIC to there. If you have a reasonable amount of patience, and can remember a few basic (not BASIC!) things, you should be up and running soon... Chris Graham --- * Origin: PCalgary (Opus 0:134/11) *** This is a reply to #233. From: Chris Graham To: Greg Franklin Msg #248, 18-May-89 04:51pm Subject: Re: PLAY procedure (was: PASCAL ECHO) I didn't do any fancy reprogramming of interrupts, or anything such as that, I just used Sound and NoSound in the procedures. I couldn't detect any appreciable delays from the speaker. What DELAY are you using to signify a note is a 64th? I can't remember mine offhand, but I will look it up later. Chris Graham --- * Origin: PCalgary (Opus 0:134/11) *** This is a reply to #21. From: Jens Stobernack To: Wayne Boyd Msg #249, 19-May-89 05:57pm Subject: Carrier Program.. Wayne.. Yes one fault in the 'Carrier' procedure. Before the statement 'Intr($14,Regs)' put 'Regs.ah := $03' that should fix it all up. The Variable 'comport' should be COM1 = 1, COM2 = 2, etc... If the Variable 'comport' is equal to 0 then the function is by passed by the fossil driver. TTYL P.S. Can you tell me what the Base Address and the Irq are for Com5 thru Com8. --- ConfMail V3.31 * Origin: EZ Duzzit BBS Calgary (1:134/20) From: Jens Stobernack To: All Msg #250, 19-May-89 06:12pm Subject: Com5 - Com8 Can anyone out there tell me what the Base Address and the Irq are for Com5 - Com8. Thanks.. --- ConfMail V3.31 * Origin: EZ Duzzit BBS Calgary (1:134/20) From: Chang Lee To: All Msg #251, 19-May-89 01:23pm Subject: ASCII Memory Location HELP ! Does Any of you Programmers out there know : - at what address in memory the upper 128 ASCII are stored for MONO/CGA/EGA/VGA ?? I'm trying to make my own set of ASCII & I need to know where they're stored so I can store them somewhere else and move a new set to that address ! If you can help please drop a line , Your help is greatly appreciated Thanks C. Lee --- Opus-CBCS 1.10.vi * Origin: Now and Zen Opus HST (916) 962-1952 (1:203/34.0) [251] Highest: 251 ECHO area 45 ... Pascal language echo Type `?' by itself for help A)rea change N)ext (read msg)